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**F [LE**1D**_ SHOW 
LL SSSSSSSS_ HH HH 000000 Wi WwW F 
LL SSSSSSSS_ HH HH 000000 WW Wid 3 
LL SS HH HH 00 00 WW Wi : 
LL SS HH HH 00 00 WW Wo F 
LL SS HH HH 00 00 WW ww 5 
LL ss HH HH 00 00 WW Wh P 
LL SSSSSS HHHHHHHHHH 00 00 WW WW : 
LL SSSSSS HHHHHHHHHH 00 00 WW Wa : 
LL SS HH HH 00 00 WW WW WW : 
LL SS HH HH 00 00 WW WW WW : 
LL SS HH HH 00 00 WWWW WWW ee 3 
LL SS HH HH 00 00 WWWWw WWW omen ° 
LLLLLLLLLL SSSSSSSS MA al 000000 Wid \a bd ene F 
LLLLLLLLLL SSSSSSSS HH HH 000000 WwW WW sane : 
LL IJIIII SSSSSSSS 3 
LL III] SSSSSSSS $ 
LL II SS 3 
LL II SS : 
LL Il SS $ 
LL II ss 3 
LL II SSSSSS : 
LL II SSSSSS : 
LL II ss 3 
LL I] SS $ 
LL II SS $ 
LL II ss 3 
LLLLLLLLLL IIIIII SSSSSSSS F 
LLLLLLLLLL III SSSSSSSS : 
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EDTSLSHOW = SHOW Line-mode command 16-Sep-1 VAX-11 Bliss-32 V Page 1 ED) 
14-Sep 5-19 38 99: 33:25 Disk SVMSMASTER: a Bt SRCSL SHOW. BLIst (1) v04 
: 1 001 ZTITLE “EDTSLS ane - SHOW Line-mode command’ ‘ 
; g . § MODULE EDTSLSHO ! SHOW Line-mode command : 
; ? Dbz "DENT = 'v04-000' ! File: LSHOW.BLI Edit: JBS1041 : 
4 s e 
; 5 Bop? : BEGIN : 
: ? 0007 i SRE RRA AAAAAA AREA AAA AEE EATER EAE EAA E ARATE AERERE RARER Py 
s '@ * | ; 
3 9 0009 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY > ; 
: 10 Bot) 1 !* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * : 
: ‘1 p01! ! » ALL RIGHTS RESERVED. * ; 
4 H ® 2 
; 8 $018 1 !* THIS SOFTWARE IS FURNISHED UNDER A LICENSE try MAY BE USED AND COPIED * ; 
. 0014 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * ; 
: 15 0015 1 !«# INCLUSION OF THE ABOVE Sgt d had NOTICE. THIS SOFTWARE OR ANY OTHER * é 
. I. 808 1 is COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * ; 
b4 17 001 1 '® OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * ° 
3 + Bats : ? TRANSFERRED. * : 
b4 it tt e 
; @& 0020 1 !* THE ont IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * . 
: 21 0021 1 !* AND SHOUL NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * ° 
: $¢ 4 ¢ : ” CORPORAT TOW. * ‘ 
Py i* ” o 
; 24 0034 1 '® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * : 
: 25 0025 1 !* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * ‘ 
; @& 0026 1 !* * ; 
; ef 0027 1 !* 4 3 
: 28 0028 1 aera era e eee RRR RARER AAA AERA RETA AEE AA AREA AAAS ° 
; 9 0029 1! $ 
; $9 6080 1 3 
a 0031 1 !++ d ; 
3 $$ 0032 1 ! FACILITY: EDT == The DEC Standard Editor : 
a 0033 1! 3 
3 34 0034 1 ! ABSTRACT: 3 
; 0035 1! 3 
; $$ One ' This module executes the Line mode SHOW command. : 
3 Hs sits ' ENVIRONMENT: Runs at any access mode - AST reentrant : 
: rs sk } AUTHOR: Bob Kushlis, CREATION DATE: February 3, 1978 ’ 
; $§ 0042 1 ! MODIFIED BY: 3 
; 4 0045 1! 3 
>: «44 0044 1 ! 1-001 = Original. DJS 30-JAN-1981. This module was created b 3 
: 45 0045 1! extracting the routine EDTS$SHW_CMD from the module EXEC.BLI. é 
:; 646 One 1! 1-002 - cegulers ze heade JBS 20-Mar- : 
3; 67 047 1! 1-003 - raanes © VERSION to EDTS$$T -}5R 185. 31-Mar-1981 g 
; 648 0048 1 ! 1-004 = Use the ASSERT macro. JBS~01-Jun-1 : 
: «649 0049 1 ! 1-005 - Use new message codes. JBS OG mugs a1 3 
; @& 0050 1! 1- “1 - Add show command for REPEAT. 2 a Shug 1761 ; 
> a 051 1 | 1-007 = Add show command for FNF. TMV 1 ept-198 3 
; 26 O36 1 ! 1-008 = Add show command for WPS search type nd SUMMARY. 3 
; 2 053 1! Also a stub for PROMPT. STS 01-Oct-1981 3 
3 4 054 1 ! 1-009 = Add show command for the boxy of pag at? end. STS 06-Oct-1981 3 
3 95 bpae 1! 1- 19 - Implement SHOW PROMPT. JBS 21-Oct- 3 
s %6 p28 1 | 1-011 = Add show word and show para. STS 32 bet=1981 3 
; & 0057 1 ! 1-012 = Add four more prompts and don't document their lengths. JBS 23-Oct-1981 ; 
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3 8 058 1! 1-013 = remove by iy? retersose to EDTSSA_INI_TXT. It was never used here 

; 9 059 1! anywa he 

: 60 060 1! 1-816 - Add $ % HELP command: MB 18-Dec-1981 
: 6} 0061 1 ! 1-015 - change HO BUF to call 4 “Bie, count, gisplay module. SMB 5-Feb-1982 

; 6 062 1! 1- 18 = Add SHOW AU TOREPEAT JBS 09 

; 6 065 1! 1-017 = Use VERSION. REQ to define the -¥8f ion number of EDT. JBS 09-Mar-1982 

; 664 0064 1 ! 1-018 = Add SHOW COMMAND. J ay- 

; 65 0065 1! 1-913 - Change format of SHOW HELP, SMB 25- -May-198 | 
> (66 0066 1 ! 1-020 - Change SHOW HELP for the 11's. SMB 2-Jun-1 

oF 0067 1 ! 1-021 = Trac chenges to SET COMMAND» in SHOW COMMAND Jes 7-Jun-1982 

; & 0068 1! I- § - Make all the show messages look alike. STS 08-Jun-198 

; @& 34 1! 1- - correct counts in SHOW WORD _ — —s A messages, JBS 09-Jun-1982 

oo. 070 1 ! 1-024 - ify for new eossoge process MGs 9-Jun- 

. 2 0071 1 ! 1-025 - Nad CRLF to SHOW BUFFER if ysing | She es SMB 02-Jun-1982 

c > un Bare 1! 1-0 § = Use EDTSSFMT_CRLF instead of ED $$00t _FMTBUF JBS desu -1982 

.- FF 0075 1 ! 1-027 = Remove prompt PRTC. 07-Jul-19 

s 0074 1 ! 1-028 = Add two new SHOW SEARCH possib What 183, 20-Jul-1982 

3 75 0075 1 ! 1-029 = Add the WW FILES command. S$ tgs fo. 

; 7% 0076 1 ! 1-050 = Add a check for READONLY output files to + 1-029. SMB 09-Aug-1982 

sav 0077 1 ! 1-031 - New design for defined keys. JBS 13-Aug-1982 

: 78 0078 1! 1-036 - Make use of the bit masks for the o tions word. 55h f Auge 1362 

; 0079 1 ! 1-035 - Fix up references to the EDTSM_ 3k mpols. {85.¢ 3-Aug-1982 

; 0080 1 ! 1-034 = Add information to SHOW TERM. 003 -Sep-1 

; 61 0081 1 ! 1-035 = Improve SHOW TERM printout and 133 seg Stas Sreteuent to SHOW VERSION. JBS 17-Sep-1982 
, 0082 1! 1=039 - More improvements to SHOW TERM! aie 

g 85 0085 1 ! 1-037 = Change placement of colons in SHO Ue 9S 20ebec- 1982 

; BG 0084 1 ! 1-038 - Add conditionals for WPS mapeert on and yi 220 0 Support. JBS 10-Feb-1983 

, 85 0085 1 ! 1-039 - Correct the sense of SHOW W 

; 686 0086 1 ! 1-040 - Print key definitions in Bane $ iBS “O9 omar 1983 

; 44 a $4 : 1-041 - Also print user-specified text, the command file name and prompts in segments. JBS 14-Jul-1983 
: 89 0089 1 
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SHOW = SHOW Line-mode command 16-Sep-1984 00:59:07 VA iss-32 V4.0 Pa 5 | 
SHW_CMD = SHOW Line-mode command 13-80 8=13Re 99:33:20 DI i ) 
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SKSVMSMASTER: CEDT.SRCJLSHOW.BLI;1 (3) | 
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| 

EDTS$G_FMT_LNPOS 
IMPLICIT OUTPUTS: | 
| 


EDTS$$G_TXT_ONSCR 
EDTS$G~FMT~LNPOS 


ROUTINE VALUE: 
NONE 
SIDE EFFECTS: 
NONE 


BEGIN 


| 

EXTERNAL ROUTINE 
E M ! Terminate an output Line | 
j 


‘Co C9 CO CO C9 CD CO COCO CODCOD CD CODCDCDCRDOCDOCDCDCEPOCDCD OC 
BERS EE WWIWWIIwnwnnonronrnrrnn st -t 
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xz 
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bad 
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! Find a key's definition 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
; 
; | 
§ ! Define the default keypad | 
ZIF ZBLISS (BLISS16) 
ZTHEN | 
EXTERNAL ROUTINE | 
} 


bo trav tytytetytetety art @ $9 4 
PPA 
FUN $9 OONOAUE WIN —$ O DOONAN EW O OONAUMNE AN" OOONOUS Me 


EDTSSFMT~CHWID; ! Compute the width of a character 
EDTSSGET_FNAM; 


ccccecr 
COOCOCCOCGOOOOGCOOCOGCO GOOG OOOCOSOOCOOCOOSOOOOOOCOOOOOOOOCOO 


tFI 


EXTERNAL LITERAL 
EDTSM_NOOUTPUT; 


Soo 


65 


SSSSNEGRONLS SNS AR WNASSRIFARAN LS SSS ARI ODO 
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SEese. 


RNA | 
EDTS$V_OPTIONS : BITVECTOR (32), ' bit 3 = /NOOUTPUT | 
T$$A_INP_NAM 


win 


1 
! Input file name | 
DT$$G_INP_NAMLEN, ' Length of input file name 
$$A_OUT_NAM, ' Output file name 
! Output file name Length 
' Format output routine ae 
' True if translation table has been initialized 
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11 
pers ow - SHOW Line-mode command 16500-1984 90:39:07 VAX-11 Bliss-32 V4.0-74 Page 6 
EDTSSSHW_CMD = SHOW Line-mode command 14-Sep-1984 12:23:40 DISKSVMSMASTER: CEDT.SRCJLSHOW.BLI;1 (3), 
1 EDTSSA_US_TXT : VECTOR, ! user defined text 
45 § EDTSS$G_FNF_MSGFLG, 
4 EDTS$$G_KPAD, 
4 4 EDT$$G_NOS 
4 5 EDT$$G_QUIET | 
4 886 EDTS$G_SEA_BEG, | 
0 EDTSSG_RPT, 
1 8 8 EDT$$G_SEA_BNDD, | 
¢ 89 EDTS$$G_SCR_LNS 
890 EDT$$G_SCLC_BOf, 
4 91 EDTS$G_SCLL_TOP, 
2? 95 EDT$$G_TAB_SIZ, 
6 9 EDTSSA-CUR-BUF : REF TBCB_BLOCK, | 
57 0894 EDTS$G_TAB LVL, 
58 0895 EDTS$G_TRUR 
59 0896 EDT$$G_TXT_ONSCR, 
60 089 EDTS$G_TI_TyYP, 
61 0898 EDTS$S$G_TI_WID, 
oe 0899 EDTS$G_VFY, 
6 0900 EDT$$G_WD_WRAP, 
64 0901 EDTSS$T_HECP_NAM, ! help file name 
65 090 EDTSS$G_HELP_NAMLEN, ! help file name Length 
66 090 EDTS$G_HELP_ SET, ' flag for help file name set 
67 0904 EDTSSA_CMD_NAM, ! Name of command file 
68 0905 EDTSS$G_CMD_NAMLEN, ' Length of the name of the command file 
69 0306 EDTS$$G_TI_SCROLL, ! 1 = terminal has scrolling regions 
70 090 
71 L 0908 


iF SUPPORT_VT220 


MESSAGES ((KEYNOTDEF, NODEFN, INVPARFOR)); 
AGE FOTOCA LMS CD CSET_TYPE] FROM 1 TO 29 OF 


oovowo 


0909 
0910 EDTS$G_EIGHT_BIT, ! 1= this is an eight-bit terminal 
poab 2FI 
0918 EDTS$G_TI EDIT ! 1 = this terminal has ‘edit’ features (ICM, DCH, IL, DL) 
Bare EDT$$G_ENB_AUTRPT, !' 1 = manipulate autorepeat in VT100, 0 = don't 
| 
L 0916 2 ZIF SUPPORT_wWPS 
0917 ZTHEN 
0918 EDTS$G_SUMRY ‘ summery flag 
0919 EDT$$G_WRDTYP, i type of word flag 
03 , ert EDTS$G_PARTYP, ! type of para flag 
9 
9 : EDTSSA_EXE_CURCMD : REF NODE_BLOCK, ! Pointer to the current command. 
924 EDTSS$G_FMT_LNPOS, ! Current Line position 
925 EDTSST_PMT_LINE : VECTOR C, orig. ' Counted ASCII string of Line-mode prompt | 
09 § EDTSST_PMT_KPD : VECTOR C, BYTE ! Counted ASCII string of seyped prompt 
09 EDTSST_PMT_NOKPD : VECTOR [, BvTE). ' Counted ASCII string of nokeypad prompt 
928 EDTSST_PMT_HCCHG : VECTOR BYTEJ, ' Counted ASCII string of hard copy change mode prompt | 
9 EDTSST_PMT_INS : VECTOR 6YTE) ' Counted ASCII string of Line-mode insert prompt 
0 EDTSST_PMT_INSN : VECTOR t, Bytes ! Counted ASCII string of Line-mode insert nonumbers prompt 
EDTSST~PMT“QUERY : VECTOR C, BYTES;  { Counted ASCII string of /QUERY prompt | 
| 
} 


F 11 
£ snow = SHOW Line-mode command 18-808- 1382 90:33:07 ype 


32 v4.0 
SHW_CMD = SHOW Line-mode command 1 Dd R 


<742 | 
:CEDT.SRCILSHOW.BLI;1 (3) | 


a 


— 


C1) : ! Show buffers 
BEGIN 


LOCAL 
BUF : REF TBCB_BLOCK; 


$ 

b 

ae 

5 Point to first buffer. 

? = BUF = .EDTSS$A_BUF _LST; 
9 33 Loop through all buffers, displaying the number of Lines 
? : n each. 

4 

5 

6 

7 

8 

9 

1 


WHILE (.BUF NEQA 0) DO 
BEGIN 


IF (.BUF EQL .EDTS$A_CUR_BUF) THEN EDTSSFMT_CH (%C'=") ELSE EDTSSFMT_CH (ZC '); 
EDTSSFMT_STR (BUF CTBCB_NAME], .BUF CTBCB_NAME_LENJ); 


WW 


INIA AAAI AI PIPPIN RPDS 2 9 St SS 2 OOOOOOCOO 
DUR AR UNS OO TOPO OOONAME UII UO De ara 


| 
+ | 
} Put an equal sign before the current buffer. 
| 
| 


4 
4 
4 
4 
4 
4 
é 
0962 4 EDTSSFMT_CH (ASC_K TAB); . 
Seer 2 EDTSSFMT_STRCNT (BOF CTBCB_LINE_COUNT], UPLIT (%C° '), 0); 
0965 4 ! If the buffer still has a file attached to it, then print 
3 0966 4 ! an asterisk after the count to indicate there may be more 
3 0967 4! Lines than we have indicated. 
3 0968 4 !- 
3 0969 4 
3 4A 2 IF (.BUF CTBCB_INPUT_RAB] NEQ 0) THEN EDTSSFMT_CH (2C'*'); 
3 0972 4 EDTSSFMT_STR (UPLIT (BYTE (ASC_K_TAB, ‘Lines')), 6); 
; 0973 4 EDTSSFMT ERLE 0); 
0974 4 BUF = .B0F CTBCB_NEXT_BUF); 
0975 ; END; 
39 0976 
0 0977 END; 
41 0978 
§ 0979 C2) : ! Show case 
0980 BEGIN 
44 $ 1 
5 9 § CASE .EDTS$G_CAS_FLG FROM 0 TO 2 OF 
§ 64 SET 
48 985 3 3 
+4 . EDTSSFMT_STR (UPLIT (BYTE (*None')), 4); 
51 38 1): 
26 9 EDTSSFMT_STR (UPLIT (BYTE ("Upper')), 5); 
5 990 
54 991 ]: 
2 +43 EDTSSFMT_STR (UPLIT (BYTE (*Lower’)), 5); 
57 0994 COUTRANGE) : 
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04 
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SHOW = SHOW Line-mode command 
= SHOW Line-mode command 
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ASSERT (0); 
TES; 


EDTSSFMT_CRLF (); 
END; 


(3) ! Show search 


BEGIN 
CASE. EDTSSG_EXCT MATCH FROM 0 TO 4 OF 


; EDTSSFMT_STR (UPLIT (BYTE ('general')), 7); 

' EDTSSFMT_STR (UPLIT (BYTE (*exact')), 5); 

’ EDTSSFMT_STR (UPLIT (BYTE (‘wps')), 3); 

. EDTSSFMT_STR (UPLIT (BYTE (‘case insensitive')), 16); 


33 
EDTSSFMT_STR (UPLIT (BYTE ("diacriticical insensitive')), 25); 


COUTRANGE] : 
gs ASSERT (0); 


saith kA ES 

EDTSSFMT_STR (UPLIT BYTE(" begin ‘), 7) 

EDTSSFMT_STR (UPLIT BYTE(" end ‘), 5); 
IF (.EDTS$G_SEA_BNDD EQL 0) THEN EDTSSFMT_STR (UPLIT BYTE('un’), 2); 
EDISSFRTZERLF CO; BYTE('bounded'), 7); 


(4) ' Show terminal 


BEGIN 

CASE -EDTS$6_T1_TYP FROM 0 TO 3 OF 
(0) : 

EDTSSFMT_STR (UPLIT (BYTE (*Unknown')), 7); 


CTERM_V152) : 
EBTSSFMT_STR (UPLIT (BYTE (*VT52")), 4); 


CTERM_V1100) : 
EDTSSFMT_STR (UPLIT (BYTE (*VT100")), 5); 


1$-$e0-1984 99:35 8s PNKSUMGMASTERSCEDT secSLSHow.eLt;1 
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ERTe CHO e SHOU Lineenoce eoemand 18-Se0- 19he 93:33:50 | btecSumGhASPeRsceoT sacSisHow.eut;1 


CTERM nce PY) : 
EBT SFMT_STR (UPLIT (BYTE (*Hardcopy')), 8); 


COUTRANGE) : 
res ASSERT (0); 


—> + > > 


VFWN "SO OBNOVESWN—OOOryou 


IF .EDTSSG_T1_SCROLL 
ar EDTSSFMT_STR (UPLIT (BYTE (' 
EDTSSFMT_STR (UPLIT (BYTE (' 


Le orrers -Vv7220 


WN —OOONOULSUT Me 


scroll")), 8) 
noscroll')), 10); 


IF EDTS$G_E1GHT_B11 
gg EDTSSFMTASTR CUPLIT (BYTE (* 


SSLSSF 


eightbit')), 10) 


BERR R PEEP PEER EE EEE PEPE 
Wr 


EDTSSFMT_STR (UPLIT (BYTE (' 
IF -EDTS$G_T1_EDIT 
EDTSSFMT_STR (UPLIT (BYTE (' 


noeightbit')), 12); 


edit')), 6) 


'¢ 
f Show the version number. 


1 EDTSSFMT_STR (VERSION_TEXT, VERSION_TEXT_LEN); 


i Show the copyright statement. If we have an eight-bit terminal 
' we use the international copyright symbol, otherwise we simulate 
i it using (C). The copyright statement goes on the same Line as 
i the version number. 


EDTSSFMT_STR (UPLIT (BYTE (', noedit')), 8); 
0 EDTSSFMT_CRLF (); 
447 084 END; 
448 085 
449 086 (5) : ' Show version 
450 087 BEGIN 
088 
089 
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S3sss OOoCoCoCoo0°0o 
2 09096908 SIN NNN 
wn WN SO OONOuse w 


S33 


IF SUPPORT_VT220 
THEN 


IF .EDT$$G_EIGHT_BIT 
LgeeDTSSEMT.STR (COPYRIGHT_TEXT_8, COPYRIGHT_TEXT_8_LEN) 


SRESls3 J 


2FI 


6 8 a OOD 


EDTSSFMT_STR (COPYRIGHT_TEXT_7, COPYRIGHT_TEXT_7_LEN); 


50 
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SHOU = SHOV, Line-node command 1b-be0-1984 0:59:07 VA 


-Sep-1 


EDTSSFMT_CRLF (); 
END; 


(6) : ' Show ent 
BEGIN 
LOCAL 
LEN, 
ENT; 
ENT = .EDTSSA_US_ENT C.EDTSSA_EXE_CURCMD CSET_VALJ = 1); 
LEN = CHSRCHAR_A™ (ENT); 
EDTSSFMT_STR (TENT, .LEN); 
EDTSSFMT-CRLF (); 
END; 
{7] : ! Show key 
BEGIN 
LOCA 


L 
KEY PTR : REF BLOCK C, BYTE] FIELD (KEY_DEF_FIELD), 
STATUS; 


IF ( NOT .EDTSS$G_TRN_TBLINIT) THEN STATUS = EDTSSDEF_DFLTK () ELSE STATUS = 1; 
IF_.STATUS 
THE 

BEGIN 

IF EDTSSTST_BADK (.EDTSSA_EXE_CURCMD CKEY_VALJ) 


EDTSSMSG_TOSTR (EDT$_KEYNOTDEF) 
ELSE 


IF EDTSSFIND_KEY (.EDTSSA_EXE_CURCMD CKEY_VALJ, KEY_PTR) 
ion BEGIN 
; If the key defintion is long, show it in pieces. 


KEY_PTR CKEY_DEF_TEXT); 
.KEY_PTR Ck Y _DEF_ LEN}: 


= 
= 

P 
ASRCRAR_A A (KEY. _P); 
= ets 


NOON UU UTUTUTUT SB BB BB EE BWW 


IF (C.EDTSSG_FMT_LNPOS + EDTSSFMT_CHWID (.CH, .EDTSSG_FMT_LNPOS)) GEQ 


7ske LSHOW.BLI;1 


Page 3 


oO 


ow 
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Ad Abd dh eAh dh bh bbedh Ate te tet el ee ee et ee ee 


BUSALALV 2S Soon 
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ot en 


IF (.EDTS$G_NOS EQL 0) THEN EDTSSFMT_STR (UPLIT BYTE('no’), 2); 


EDTSSFMT_STR (UPLIT BYTE('numbers'), 7); 
EDISSFAT_CRLF QO; 


(11) ! Show verify 


BEGIN 
IF (.EDTSS$G_VFY EQL 0) THEN EDTSSFMT_STR (UPLIT BYTE('no"), 2); 
EDTSSFMT_STR (UPLIT BYTE(' verify’), 6); 

EDTSSFAT_CRLF 0; 


(12) ! Show truncate 


BEGIN 
IF (.EDTSS$G_TRUN EQL 0) THEN EDTSSFMT_STR (UPLIT BYTE('no'), 2); 
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EDTS$SHW. CMD = SHOW Line-mode command 1 730071 38e 9933 :40 DLSKSVMSMASTERSCEDT SRCSLSHOW.BLI;1 ’ (3) vo 
11 7 -EDT$$G_TI_WID) 
1189 6 THEN ite 
1198 ? EDTSSFMT_CRLF (); 
1190 6 EDTSSFMT_CH (.CH); 
1171 6 CH = CHSRCHAR_A (KEY_P); 
1176 KEY_L = .KEY_C - 1; 
117 END; 
1174 
1175 END 
1128 4 ELSE 
Vier 2 EDTSSMSG_TOSTR (EDTS_NODEFN); 
1179 4 END 
1180 ELSE 
118) EDTSSMSG_TOSTR (.STATUS); 
1188 EDTSSFMT_CRLF (); 
1184 END; 
1185 
1186 
1187 BEGIN 
1188 EDTSSFMT_DCML_ (.EDTS$G_SCLL_TOP); 
1189 ; EDTSSFMT_CH (2C':'); 
1190 EDTSSFMT_DCML (.EDT$$G_SCLL_BOT); 
119 EDTSSFMT_CRLF (); 
119 END; 
119 
119 C9] : ' Show screen. 
119 BEGIN 
119 EDTSSFMT_DCML (.EDTS$$G_TI_WID); 
119 EDTSSFMT_CRLF (); 
HY 2 END; 
120 (10) : ' Show numbers. 
120 BEGIN 
120 
120 
120 
120 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
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EDTSSFMT_STR (UPLIT BYTE('truncate'), 8); 
A ahaa Q); 


(13) : ' Show k 
BEGIN Serpe 


IF (.EDTSSG_KPAD EQL 0) THEN EDTSSFMT_STR (UPLIT BYTE('no'), 2); 
EDTSSFMT_STR (UPLIT BYTE('keypad'), 6); 
EDTSSFMT-CRLF (); 
END; 
(14] : ! Show wrap 
BEGIN 
IF (.EDTS$G_WD_WRAP EQL 256) 
EDTSSFMT_STR (UPLIT BYTE('nowrap’), 6) 
EDTSSFMT_DCML (.EDT$$G_WD_WRAP); 
EDTSSFMT_CRLF (); 
END; 
C15] : ! Show mode 
BEGIN 
IF (.EDTSSG_EDIT_DFLTMOD EQL CHANGE_MODE) 
EDTSSFMT_STR (UPLIT (BYTE ('Change’)), 6) 
EDTSSFMT_STR (UPLIT (BYTE ("Line’)), 4); 
EDTSSFHT_CRLF 0; 


(16) : !' Show Lines 
BEGIN 
EDTSSFMT_DCML (.EDTS$G_SCR_LNS); 
EDTSSFMT_CRLF (); 
END; 

(17) : ' Show quiet 
BEGIN 


IF (.EDT$$G_QUIET EQL 0) THEN EDTSSFMT_STR (UPLIT BYTE('no'), 2); 
EDTSSFMT_STR (UPLIT BYTE('quiet’), 5); 
EDTSSFAT_CRLF QO; 


(18) ! Show tab 


BEGIN 
IF (.EDT$$G_TAB_SIZ EQL 0) 
THEN 


fj 
CJLSHOW.BLI;1 


ED 


tong = SHOW Line-mode command 18-Sep-1984 99:39:07 ; . BL 32 Page 8 


ERTS, suow EDTS VAX-11 Bliss- Pet 

v04- EDTSSSHW_CMD = SHOW Line-mode command -Sep-1 DISKSVMSMASTER:CEDT.SRCJLSHOW.BLI;1 

; 643 1280 4 BEGIN 

> 644 1281 4 EDTSSFMT_STR (UPLIT BYTE('notab'), 5); 

> 645 1 ¢ 4 EDTSSFMT_CRLF (); 

; 64 1 4 END 

: 64 1284 3 ELSE 

; 648 1 + 4 BEGIN 

> 649 1 § 4 EDTSSFMT_STR (UPLIT BYTE('tab size '), 9); 

; 650 1 4 4 EDTSSFMT_DCML (.EDTS$G_TAB_SIZ); 

; 651 1288 4 EDTSSFMT_STR (UPLIT BYTE('S tab Level '), 12); 

3 $36 1289 4 EDTSSFMT_DCML (.EDTS$G_TAB_LVL); 

3 @ 1290 4 EDTSSFMT_CRLF (); 

3; 654 1291 END; 

3 G32 1 3 

> 656 129 END; 

; 657 1294 

; 658 1295 (19) : ! Show repeat 

; 659 1296 BEGIN 

; 660 3.44 

; 661 ; 4 IF (.EDTS$G_RPT EQL 0) THEN EDTSSFMT_STR (UPLIT BYTE('no'), 2); 

; oe 1590 EDTSSFMT_STR (UPLIT BYTE('repeat'), 6); 

3 664 1301 3 EDTSSFMT_CRLF (); 

; 665 1306 é END; 

; 666 130 

; 667 1304 [20] : ! Show file_not_ found 

; 668 1305 BEGIN 

; 669 1306 

; 670 1307 3 IF (.EDTS$G_FNF_MSGFLG EQL 0) THEN EDTSSFMT_STR (UPLIT BYTE('no'), 2); 

; 672 a 3 EDTSSFMT_STR (UPLIT BYTE('fnf"), 3); 

; 673 1310 3 EDTSSFMT_CRLF (); 

> 674 1311 2 END; 

3; 675 1316 

; 676 131 C21) : ! show summary 

3; 677 1314 BEGIN 

; 678 1315 

; 679 L 1316 3 XIF SUPPORT_WPS 

; 680 1317 ; XTHEN 

; 681 1318 

3 68 1333 4 IF ( NOT .EDT$$G_SUMRY) 

>; 684 1331 EDTSSFMT_STR (UPLIT BYTE('nosummary'), 9) 

3; 685 1 $§ LSE 

: 8B? 1354. 3! 

: on i 2 EDTSSFMT_STR (UPLIT BYTE('summary'), 7); 

; 690 13 7 EDTSSFMT_CRLF (); 

3; 691 1 3 END; 

; 69 1 

3; 69 1330 (22) : ! Show Prompt | 

: 694 1 4 BEGIN 

3: 695 1 $ 

: 696 1 ; LOCAL 

3; 69 1334 LEN, ' Length of the string 

; 698 1335 TXT, ! Address of string contents 

; 699 1336 PROMPT_NUM, ! Which prompt string | 
| 


, 411 

EDTSLSHOW EDTSLSHOW = SHOW Line-mode command 16-Sep-1984 00:59:07 VAX-11 Bliss-32 V4.0-74 Page 14 ED 
vet EDTS$SHU. CMD = SHOW Line-mode command 12-80-1382 99:3 :40 PTEKSUMGHASTERSCEDT SRCILSHOW.BLI:1 ° 3} vO 
; 700 1337 CH; 

: 7 i i PROMPT_NUM = .EDTSSA_EXE_CURCMD CSET VAL] 

; ss ; 

; 70 1340 4 TXT = TCASE .PROMPT_RUM FROM 1 TO 5 OF 

3; 704 1341 4 ET 

; 705 1 tg 4 1] : EDTSST_PMT_LINE; 

: 706 1345 4 § : EDTSST_PMT_KPD; 

: 707 1344 4 : EDTS$T“PMT-NOKPD; 

: 708 1345 4 4] : EDTSS$STPMT"HCCHG; 

: 709 1346 4 5] : EDTS$T-PMT_INS; 

: 710 1347 4 $ : EDTS$T-PMT~INSN; 

: 711 1348 4 : EDTSST_PHT_QUERY; 

3 re 1349 4 OUTRANGE) : 

: 71 1350 5 BEGIN 

3; 716 1351 é ASSERT (0); 

s 715 1326 0 

: 716 1353 4 END; 

: 717 1336 ; TES); 

; 718 1355 LEN = CH$RCHAR_A (TXT); 

: 719 1356 3 4 

: 720 1357 ! If the prompt is long, show it in pieces. 

; 721 1328 !- 

: ree 1359 EDT$$G_FMT_LNPOS = 0; 

; 72 1360 CH = CASRCRAR_A (TXTS; 

: es 1361 LEN = .LEN - T; 

s fe 1306 

3; 726 136 3 WHILE (.LEN GEQ 0) DO 

: 58 1368 wher 
3 cys 1308 ? IF ((.EDTS$G_FMT_LNPOS + EDTSSFMT_CHWID (.CH, .EDTS$G_FMT_LNPOS)) GEQ .EDT$$G_TI_WID) 
: 731 1368 4 EDTSSFMT_CRLF (); 
; 732 1369 4 
3 733 1370 4 EDTSSFMT_CH (.CH); 
: 736 1371 4 CH = CHSRCHAR_A (TXT); 
3; 735 1372 4 LEN = .LEN = T; 
: 736 1375 3 END; 
: 737 1374 3 
: 738 1375 3 EDTSSFMT_CRLF (); 
: 739 1376 END; 
: 740 1377 
: 741 1378 (23) : ' show text 

> 7 1379 BEGIN 
3 74 1380 
: 744 181 LOCAL 

: 746 Pas TXT, 

: 747 1384 CH; 

: 748 138) 

: 749 1386 TXT = .EDTS$SA_US_TXT C.EDTSSA_EXE_CURCMD CSET_VAL] - 1); 
: 750 1 37 LEN = CHSRCHAR_A™(TXT); 

: 751 1388 3 1+ | 
3 i) ' BP If the text is long, show it in pieces. 
: 754 1391 EDT$$G_FMT_LNPOS = 0; | 
: 755 1398 CH = CASRCRAR_A (TXT); 

: 756 139 LEN = .LEN - 7; | 

| 


a 
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WHIL EN GEQ 0) DO 


-EDTS$G_FMT_LNPOS + EDTSSFMT_CHWID (.CH, .EDTSS$G_FMT_LNPOS)) GEQ .EDT$$G_TI_Wi0) 
EDTSSFMT_CRLF (); 


EDTSSEMT CH (.CH) 
CH CHSRCHAR A EXT): 


[C24] : ! show word type 
BEGIN 


F SUPPORT_WPS 
EN 


eve 
— 
= 


i sEOTSOG maT YP 
a (UPLIT BYTE('nodelimiter '), 12) 


Pad 
a 
oe 


EDTSSFMT_STR (UPLIT BYTE('delimiter '), 10); 
EDTSSFMT_CRLF (); 
END; 
(25) : ! SHOW WORD 
BEGIN 


} 
L = . | 
EDTSSFMT_CRLF (); 
END; 
ZIF SUPPORT_WPS 
XTHEN 
IF .EDT$$G_PARTYP 
EDTSSFMT_STR (UPLIT BYTE('nowps '), 6) 
ELSE 
ZF I 
EDTSSFMT_STR (UPLIT BYTE(’wps '), 4); 


EDTSSFMT_CRLF (); 
END; 


(26) : ' Show Help File Name 
BEGIN 


LOCAL 
STATUS; 
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4 : If the help file name has not been parsed, call SET HELP so 
4 ! that the resultant ite name will appear in the message. 
t2 ; For the PDP-11's, EDTS$G_HELP_SET is always zero. 


STATUS = 1; 
IF ( NOT .EDT$$G_HELP_SET) 


STATUS = EDTSSSET_HLPFNAM (CHSPTR (EDTS$T_HELP_NAM), 
-EDTS$G_HELP_RAMLEN) ; 


IF (.STATUS) 
THEN 


BEGIN 
EDTSSFMT_STR (UPLIT BYTE('Help file name: '), 16); 

X1F XBLISS (BLISS32) 
EDTSSFMT_STR (CHSPTR (EDTS$T_HELP_NAM), .EDT$$G_HELP_NAMLEN) ; 
EDTSSGET_FNAM (); 


ZELSE 

xFI 
EDTSSFMT_CRLF (); 
END; 


(27) : ' show autorepeat 
BEGIN 


IF (.EDT$$G_ENB_AUTRPT EQL 1) 
EDTSSFMT_STR (UPLIT BYTE("autorepeat’), 10) 
EDTSSFMT_STR (UPLIT BYTE('’noautorepeat'), 12); 
EDTSSFMT_CRLF (); 
END; 


MEUM — O OONAUSWN (OO ONAUE WN "OVOONOULSW— MH 


(28) : ! show command 


CONOUEWIN oO OOnN 


TXT = .EDTSSA_CMD_NAM:; 
LEN = .EDTS$$G~CMD~NAMLEN; 
IF 

TH 


-TXT NEQA 0) 


'¢ 
If the name is long, show it in pieces. 
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EDTS$G_FMT_LNPOS = 0; 
CH = CASRCRAR_A (TXTS; 


32 
R 


V4.0-74 Page 17 - 
acest spcSusnow.eri:1 2% ¢h)_ 


71 
i 
if, LEN = .LEN = T; 
He: WHILE (.LEN GEQ 0) DO 
ars BEGIN 
878 IF ((-EDTSSG_FAT_LNPOS + EDTSSFMT_CHWID (.CH, .EDTSS$G_FMT_LNPOS)) GEQ .EDTS$$G_TI_WID) 
a8) EDTSSFMT_CRLF (); 
HT EDTSSFMT_CH (.CH); 
88 CH = CHSRCHAR_A (TXT); 
884 LEN = .LEN = T; 
885 END; 
886 
887 END; 
888 
889 EDTSSFMT_CRLF (); 
344 END; 
89 C29] : ! show input/output files 


T = .EDTSSA_INP_NAM:; 

N = -EDT$$G-INP~NAMLEN; 

TSSFMT_STR TUPLIT BYTEC'Input File: '), 13); 
TSSEMTSTR (TXT, LEN); 

T 


MTCRLF (); 
SSFMTSTR (UPLIT BYTE('Output File: '), 13); 
(.EDTS$G_OUT_NAMLEN EQL 0) 


ow 
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907 E 

908 

909 2 IF ((. EDTS$V_OPTIONS AND EDTSM_NOOUTPUT) NEQ 0) | 
4p 24 EDTSSFMT_STR (UPLIT BYTE('**Readonly**"), 12) | 
318 55 EDTSSFMT_STR (.TXT, .LEN) 

914 551 

915 23¢ ELSE 

916 333 EDTSSFMT_STR (.EDTS$$A_OUT_NAM, .EDT$$G_OUT_NAMLEN); 

918 555 EDTSSFMT_CRLF (); 

919 296 END; 

920 55 | 
921 558 COUTRANGE) : 
92¢ 559 ASSERT (0); 

g 560 TES; 

9ek 561 

925 562 END; ! of routine EDTS$SHW_CMD 


en 
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«TITLE EDTSLSHOW EDTSLSHOW - SHOW Line-mode command 
-IDENT \V04-000\ 


-PSECT _EDTSCODE,NOWRT, SHR, PIC,2 


| 
| ° 
00000029 00000 P.AAA: LONG 32 : | 
9 04 P.AAB: .BYTE : 3 
73 65 6E€ 69 6C 00005 “ASCII \Lines\ : ; 
000A “BLKB. 2 : 
65 $f 6f of 900 P.AAC: .ASCII \None\ ; ; 
72 65 0 5 at P.AAD: ot \Upper\ : : 
72 65 77 6F 4C 60018 P.AAE: ASCII \Lower\ ; ; 
001D “BKB 3 ; 
6C 61 72 65 6E 65 67 000 9 P.AAF: ASCII \general\ ; ; 
74 63 61 78 65 00028 P.AAG: <ASCII \exact\ ; ; 
00020 “BLKB. 3 : 
73 70 77 000 9 P.AAH: .ASCII \wps\ 3 ° 
76 69 74 69 73 6E 65 73 6E 69 20 65 73 61 $3 Bore P.AAI: .ASCII \case insensitive\ : : 
69 20 6C 61 63 69 $3 69 2 69 ? 63 61 $9 64 00044 P.AAJ: .ASCII \diacriticical insensitive\ : : 
20 6€ 69 67 65 ee 0 0005D P.AAK: .ASCII \ begin \ : | ; 
20 64 6€ 65 20 00064 P.AAL: .ASCII \ end \ : : 
64 65 64 6E 75 6F 62 00068 P.AAN: ASCII \bounded\ ; : 
6 77 6F 6E 6B 6F 55 ita P.AAO: .ASCII \Unknown\ F F 
53078 -BLKB 1 3 
32 35 54 56 O007C P.AAP: “ASCII \VTS2\ ; ; 
30 30 31 54 56 00080 P.AAQ: .ASCII \VT100\ ; | : 
00085 *BLKB 3 | ; 
79 70 6F 63 64 LE: 61 48 00088 P.AAR: .ASCII wMerdcenr’ : : 
6C 6C 6F 72 63 73 20 2C 00090 P-AAS: ‘ASCII \, scroll\ : | ; 
6C 6C 6F 63 73 6F 6E€ 20 2 00098 P-AAT: ASCII \. noscroll\ : | : 
74 69 62 74 68 67 69 65 20 2¢ OOK, P.AAU “ASCII \. eightbit\ ; | : 
69 62 76 68 67 69 65 6F a 30 3¢ 00B0 P.AAV: .ASCII \, noeightbit\ : | ; 
74 69 64 65 20 2C OOOBC P.AAW: ASCII \. edit : F 
00C “BLKB. 2 ; 
7% 69 4 65 F 6 0 : C4 P.AAX: ASCII \, nogdit\ ; | : 
20 20 20 20 30 30 30 2D 34 0 S5 cc P-AAY: .ASCII \V04-000 \ ; 
D -BLKB 2 , : 
4F 43 20 20 20 20 20 30 20 20 20 G0e0 P.AAZ: <ASCII \ COPYRIGHT \ : 
AQ OO0F3 BYTE <8 : ; 
51 45 20 4C 41 54 49 47 49 46 20 ite ASCII \ DIGITAL EQUIPMENT CORPORATION 1980 8 19\ ; 3 
“1 33 31 30 38 36 $3 $8 35 $F 36 Oots2 ; 
4 $8 ii Asc \84\ : ; 
9 4F 4 0 00120 P.ABA: ASCII \ COPYRIGHT (C) DIGITAL EQUIPMENT C\ ; ; 
REG RRR ORR OE : : 
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43 20 54 4E 45 4 70 49 51 13 : 
30 38 39 31 #20 4E GF 49 3 41 3 33 4F 14 «ASCII \ORPORATION 1980 & 1984\ : 
4 38 3 eo 12 : 
F E 1 P.ABB: .ASCII \no\ : 
73 72 65 62 6D 75 6€ 160 P.ABC: .ASCI1 \numbers\ 3 
6F $f 167 P.ABD: .ASCII \no : 
79 66 69 72 65 169 P.ABE: .ASCII \verify\ : 
gf gf \¢f P.ABF: .ASCII \no\ : 
65 74 61 63 6E€ 75 72 171 P.ABG: .ASCII \truncate\ : 
6F 6E 179 P.ABH: .ASCII \no\ ; 
4 61 70 79 65 68 17B P.ABI: .ASCII \keypad\ : 
0 61 72 77 6F 6€E } } P.ABJ: tf qneurep\ 3 
65 67 6E 61 68 43 : P.ABK: ity \Change\ : 
65 6€ 69 4C 5 P.ABL: .ASCII \Line\ : 
F gf 194 P.ABM: .ASCII \no\ : 
74 65 69 75 196 P.ABN: .ASCII \quiet\ : 
$¢ 4 4 6F $F HH P.ABO: .ASCII \notab\ 3 
¢0 65 7A 69 0 62 61 74 QO1A0 P.ABP: .ASCII \tab size \ 3 
20 6C 65 76 65 6C 20 62 61 74 20 38 81a P.ABQ: .ASCII \; tab level \ s 
6F $f 183 P.ABR: .ASCII \no\ 3 
74 61 65 70 65 01B7 P.ABS: .ASCII \repeat\ 3 
6F 6€ 3180 P.ABT: .ASCII \ F 
$6 6E 66 1BF P.ABU: .ASCII \fnf\ $ 
79 72 61 6D 6D 75 F $f 01C2 P.ABV: .ASCII eee : 
79 72 #61 6D 6D 75 Boies P.ABW: .ASCII \summ F 
20 72 65 74 69 6D 69 6C 65 64 6F 6E 0102 P.ABX: .ASCII one om 9 \ ; 
20 72 65 74 69 D 69 gc 65 64 Bat DE P.ABY: .ASCII \delimiter \ : 
20 73 70 of $f O1E8 P.ABZ: .ASCII \nowps \ 3 
$f 73 9 7 Bies P.ACA: .ASCII \wps \ : 
3A 65 6D 61 6E€ 20 65 6C 69 66 20 70 6C 6 38 ae P.ACB: .ASCII \Help file name: \ : 
74 61 65 70 65 72 6F 74 75 61 00202 P.ACC: .ASCII \autorepeat\ F 
74 61 65 70 65 72 6F 74 75 61 6F 43 O20C P.ACD: .ASCII \noautorepeat\ : 
20 3A 65 6C 69 46 20 20 74 75 70 6€ 4 0218 P.ACE: .ASCII \Input File: \ : 
20 3A 65 6C 69 46 20 74 75 4 74 75 4F O00 ¢ P.ACF: .ASCII \Output File: \ : 
2A 2A 79 6C 6E 6F 64 61 6 52 2A 2A 002352 P.ACG: .ASCII \**Readonly**\ ; 
-EXTRN EDTSSFMT_CRLF, EDTSSTI_WRSTR 
“EXTRN EDTSSSET-HLPFNAM 
-EXTRN EDTSSFMT-STRCNT 
“EXTRN EDTSSTST“BADK, EDTSSFMT_CH 
-EXTRN EDISSFMT-DCML, EDTSSFMT-STR 
TEXTRN EDTSSMSG_TOSTR, EDTSSFIRD KEY 
eEXTRN EDTSSDEF-DFLTK, EDTSSFMT CHWID 
-EXTRN EDTSM_NODUTPUT, EDTS$V_OPTIONS 
-EXTRN EDTSSA_INP_NAM, EDT$$G_INP_NAMLEN 
-EXTRN EDTSSA_OUT_NAM, EDT$$G_OUT “NAMLEN 
-EXTRN EDTSSA_FMT_WRRUT 
-EXTRN EDTS$$G_TRN_TBLINIT 
-EXTRN EDTSSA_BUF-LST, EDTS$G_CAS_FLG 
-EXTRN EDT$$G_EDIT DFLTRO® 
-EXTRN EDTSSA_US_ERT, EDTSSG_EXCT_MATCH 
-EXTRN EDTSS$A_US TXT Ep TS86. FNF_ASGFLG 
“EXTRN EDTS$$G-KPAD, EDT$$G_NOS 
-EXTRN EDTS$G"QUIET, EDT$$G_SEA_BEG 
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44(BUF), -(SP) 


45 (BUF) 

#2, EDTSSFMT_STR 
#1, EDTSSFMT_CH 
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R6 
24 (BUF ) 
#3, EDTSSFMT_STRCNT 
42 (BUF ) 

#1, EDTSSFMT_CH 


T_STR 
TICRLF 


TS$G_CAS_FLG, #0, #2 
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EDTSLSHOW EDTSLSHOW - SHOW Line-mode command 16-Sep-1984 2:59:07 VAX-11 Bliss-32 V4.0-74 | E 
ater EDTSSSHW_CMD = SHOW Line-mode command 19-808- 1382 90:33:95 DLEKSVMGHASTER-CEDT SRCILSHOW.BLI:1 aes § 0 

17$-14$,- 3 ; 

188-148. : | : 

68 0 FB 001 CALLS #0, EDISSINTER_ERR : 1023 : 

et a i104) |} 

20 «Ab BF 1 PUSHAB P.AAF : : 

1A 11 001 BRB 20s : ; 

05 po 112 16% PUSHL @# + 1011 F 

28 AS 9F 0011 PUSHAB P.AAG : ; 

13° 11 00117 BRB 20s : ; 

0 po 119 17$ PUSHL @# + 1014 ; 

30 AS 9F 0011B PUSHAB P.AAH : ; 

o¢ 11 0011 BRB 20$ : ; 

10 DD 91 18$ PUSHL #16 + 1017 : 

34 AG 9F 001 PUSHAB P.AAI : : 

05 11 001 BRB 20s : ; 

19 DD 91 7 19$ PUSHL #25 + 1020 F 

44 Ab 9F 00129 PUSHAB P.AAJ : ; 

67 0 FB 001 C 20$: CALLS #2, EDTSSFMT_STR : ; 

07 000000006 00 €9 OO12F 218:  BLBC  EDTS$G_SEA_BEG, 228 + 1026 : 

07 DD 001 PUSHL #7 : 1028 F 

5D AG 9F 001 PUSHAB P.AAK : : 

05 11 001 BRB 23$ F : 

05 oD 001 D 228 PUSHL #5 : 1030 ; 

64 Ab OF 0013F PUSHAB P.AAL : F 

7 02 FB 00148 23$: CALLS #2, EDTSSFMT_STR : ; 

000000006 00 D5 0014 TSTL EDT$$G_SEA_BNDD + 1032 ; 

08 12 00148 BNEG  24$ : : 

02 DD 0014D PUSHL #2 : ; 

69 Abd SF OO14F PUSHAB P.AAM : : 

67 02 FB 00152 CALLS #e. EDTSSFMT_STR : : 

07 DD 00155 248 PUSHL @# > 1034 : 

6B Ab OF 00197 PUSHAB P.AAN : : 

79 11 O015A BRB 39$ : : 

03 00 000000006 00 CF 0015¢ 26$: CASEL DTS$6 TI_TYP, #0, #3 + 1041 ; 

0023 0018 0014 0OuD 00164 278: = WORD 8 5- 6 So ; ; 

0$-27$,- 3 3 

1$-27$ : $ 

68 00 FB 0016C CALLS #0, EDTSSINTER_ERR : 1057 : 

1F 11 0016! BRB $ > 1041 : 

07 DD 00171 28$ PUSHL + 1045 : 

74 Ab OF O175 PUSHAB P.AAO : : 

1§ 11 1% BRB 32$ : : 

04 pp 178 29% PUSHL #4 > 1048 : 

7C AG 9F OOI7A PUSHAB P.AAP : ; 

OF 11 00170 BRB 328 : 3 

po 17F 30$ PUSHL # + 1051 | : 

0080 C6 9F 00181 PUSHAB P.AAQ : | : 

6 11 001 3 BRB 368 : ; 

Bd 00187 318: PUSH : 1054 | ; 

0088 F 00189 PUSHAB P.AAR : ; 

67 FB 1 328: CALLS #2, EDTSSFMT_STR : : 

08 000000006 £9 001 $:  BLBC EDts G_TI_SCROLL, 348 : 1060 : 

BD 19 PUSHL @# > 1062 : 

0090 C6 9F 00199 PUSHAB P.AAS : : 


PUSHR pale 


03D 43$: BRw 
09 000000006 0 44%: BLBS EDTS$$G_TRN_TBLINIT, 45$ 
000000006 00 0 CALLS #0, EDTSSDEF_DFLTK 


45$: MOVL #1, STATUS 
468: BLBC STATUS 


50 
? -91$ 
if scscneges MOVL DTSRA-EXE CURCHO. RO 
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EDTSLSHOW EDTSLSHOW = SHOW Line-mode command 1b-5¢ -1984 :59:07 VAX=-11 Bliss-32 V4.0-74 fa 
Bh 80 EDTSSSHW_CMD = SHOW ‘ine-mode command 1 ~3ep-19 4 99333 :25 DEEKSVMGMASTERSCEDT SRCTLSHOW-BLI:1 _— 
6 11 00190 BRB 35 
88 p 19F 34$ PUSHL 33 
7 vie ; F ihe 35$ attics ON OTSseMT STR 
88 000000006 5 iM BLBC Eofs$¢ EIGHT alt, 36$ 
cone Sh BP RFit By 
1 183 BRB 37 
p 1B7 36$ PUSHL #1 
67 _ F i6p 37$ CAS. #2 EDTSSEMT_STR 
08 000000006 E 1¢9 BLBC eofssc t1 eDIt. 38$ 
ooBc BF 00169 PUSHAB PCAAW 
3 1 1€D BRB 43$ 
DD OOICF 38%:  PUSHL #8 
00¢4 ¢ 9F 00101 PUSHAB P.AAX 
1 1D 39$: BRB 43 
12 DD 00107 40$:  PUSHL #18 
00cc 9F 00109 PUSHAB P.AAY 
67 FB 001DD CALLS #2, EDTSSFMT_STR 
08 000000006 E 160 BLBC  EDTS$G_EIGHT“BIT, 41$ 
0060 ¢ 8 if9 PUSHAB Paar 
19 1 1ED BRB 43$ 
3E DD OOIEF 41$:  PUSHL #62 
0120 (C6 9F OO1F1 PUSHAB P.ABA 
"4 IF 43$ 
50 10 A2 DO OO1F? 42$: MOVL  16(R2), RO 
56 0000000060040 »D FB OVL EDTS$$A_US_ENT-4CROJ, ENT 
51 4 ‘ 06 MOVZBL (ENT)+> LEN 
ee 
1 1 
D 1B 
7 1E 
D 1 
D 8 
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A PUSHL 
000000006 00 9 CALLS #1, EDTS$TST_BADK 
0 BLBC ~=_«aRO,._ «47S 
000000006 PUSHL #EDTS_KEYNOTDEF 
BRB 52$ 
47$:  PUSHL §$P 
50 000000006 0 MOVL FDTSSA_EXE_CURCMD, RO 
10 A PUSHL (RO) 
000000006 0 9 CALLS #2, EDISSFIND_KEY 
BLBC =_—«aRO._: 508 
9 6 VL —sKEY_PTR, R 
07 A v 7(RO), KEY_P 
54 6 A MOVZBL 6(RO), KEYTL 
CLRL  EDT$$G_FMT~LNPOS 
55 48$: MOVZBL (KEY_PJ+, 
of DECL KEY _C 
9 0026 BLSS 56$ 
53 69 00 0026 MOVL EDTS$G_FMT_LNPOS, R3 
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- SHOW Line-mode command 
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67 4 
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64 
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O16F oe 
of 
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7C 
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an § 

67 6 
6 
0178 £8 
50 000000006 80 


Sep-1 
b-tep-1 


1 

1 
DD A 
DD C 
i : 
D 7 
19 7F 
FB 1 
43 49$: 
11 
0 50$: 
dD ; 1$: 
FR 95 52$: 
11 $ 9C 
DD 9E 53$: 
BB O0SAB 
FB 5 AD 
F 00966 
DD 00288 54$: 
FB 00 Bf t+ 
31 002C5 56$: 
t fg 5 
DD 60 dO 
F Sah 
DD $0 D9 58$: 
SF 00208 
11 O002DF 
DS 002E1 59S: 
12 002E7 
BP O0SEB 
FB OO2EF 
g Bre oom 
11 002F8 
03 O2FA 61$: 
12 00300 
pp 0302 
BU oo, 
ea 
83 § 13 63$: 
as 
FB 1 
4 7 64$: 
11 & 
dO C 65$: 


ob 13:38:25 


R3 

CH 

#2, EDTSSFMT_CHWID 
RO, EDT$$G_TI_WID 

#0, EDTSSFMT_CRLF 

1, EDTS$SFMT_CH 

4 Senter 


L_T0P 
STSSEMT —DCML 


$6 

E 

ED 4d rote CH 
$$G6_SCLL_BOT 
$G 
E 


DTSSFMT_STR 


P.ABF 
ie EDTSSFMT_STR 
P.ABG 

EDT$$G_KPAD 

64$ 

#2 

P. ABH 

He EDTSSFMT_STR 
P.ABI 

74$ 
EDT$$G_WD_WRAP, RO 
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Page 5 
e =32 V4.0-74 3 
and 16- “Sep: 1984 93:28:40 DISKSVNSMASTERSCEDT. SRCSLSHOW.BLI;1 Pa 
= SHOW Line=mode comm nd 14-Se : | 
te ta EDTS Shu. CAD - SHOW Line-mode comma . 5 owe RO, #256 ; wp 
R 00100 8F 12 O088A 66 
_ 6 BD OOS%C PUSHAB P-ABJ ; 1263! 
0181 is 7 és PUSHL «ROT F ieek| 
44 66$: : | 
i rh 67$ stl EDtSsc_eD17_pFL HOD : 1253 
000000006 3 St a i | 
BD O03? PUSHAB P..ABK ; 1255 
F 79$ 
oa 6 PUSHL a 
04 pp 0 A 688 PUSHAB Paget $ 1262 
week | aos 6B DT$$G_SCR_LNS 1269 
000006 00 oD co 
concoone $5 HERS ris: PL Patese-oue Za 
06 > '  BNEG : | 
0000000 09 v2 0 i PUSH a2 . Fans! 
019% CSF 00 re CALLS 42, EDTSSFAT_ST | 
67 $8 $3 7B res PUSHAB Risen > 1278) 
O18 fet Ren : STL EDTSSG_TAB_SIZ ; 1281) 
mores FF OE ea ek Bevel 
° g ie 0087 PUSHL ; | 
08 Db 00389 PUSHAB P. ABO : 1286 
C6 OF 00388 84s ta | 
0198 BF 74$: BRB 
6F 11 00 91 75$:  PUSHL 5 a : | 
09 pd 0059 PUSHAB PAB EDTSSEnT STR ; 1287 | 
O1A0 CG OF 00395 CALLS #2, EDTSSEMT S 7 
DD CALLS. #1, EDTSSFAY_DCHL , § 1288 
000000006 0 pb 90 i CALLS ng ED ; 
sextape cy: O¢ BF OOSAS nuSHAs . EDTSSERT STR ; 1289) 
_— 6 FB 0 AD PUSHL EDFSSG_TAB_LUL : 1298, 
Saceouna Roo Be res: ORY EDrss6. ner : 
. Q e | 
000000006 a3 Pettit: BNEG. | 
sett PUSHAD BADR cccut STR ; 1300 | 
0185 é Hae CALLS He sane | 
67 6 DD OOSCA 788: PUSH BABS > 1307. 
o1e7 6 3 79s: BR EDISSG_FHF_MSGFLG : | 
0 ' 0 1$ : | 
000000006 6 83 08 Ss © Spell, 
8° CALLS” #3, EDTSSFMT_STR : 1309 | 
0180 TF 2080 CALLS ¢, EDISSFAT_ ps 
: BSS so Fao oad 
C 
a £8 OO3ER 82S: LBS EDTSSG_SUMRY, 835 
08 000000006 00 E€ 


12 
EDTSLSHOW EDTSLSHOW = SHOW Line-mode command 18-$6 -1984 00:59:07 VAX=-11 Bliss-32 V4.0-74 Pa 
704-000 EDTS$$SHW_CMD = SHOW Line-mode command 1 =300 138% 90:33:08 DEKSUMGHASTERSCEOT SRC SLSHOW.BLI:1 a4 (38 
09 DD 003F PUSHL #9 : 1321 
91¢2 P Fé PUSHAB P.ABV : 
11 FB BRB 84$ : 
D FA 838: PUSHL #7 3; 1325 
01cB C6 OF OO3F PUSHAB P.ABW : 
01DD 31 004 4s: BRW 120 : 
0 34 0S OP bcd? tO CASEL  PRORBT “NURS wT 2 oe : 1320 
0030 0099 oie 001 8 86$ <WORD 87$-86$,- ’ F 
0048 004 39 041 s- 6$,- : 
$- o3 = : 
31S-868.- 
363° 6$,- : 
95$-86$ : 
68 9 FB 00419 CALLS #0, EDTSSINTER_ERR + 1351 
D4 O4ic CLRL —sTXf : 1350 
D 11 ai BRB 94$ : 
53 000000006 00 9E 00420 87$:  § MOVAB EDISST_PHT_LINE, TXT + 1340 
vy 904 7 BRB 4$ : 
53 000000006 00 9 04 9 88$: MOVAB DTSS$T_PMT_KPD, TXT : 
53 000000006 99 9 094 89$: MOVAB DTSST_PMT_NOKPD, TXT : 
53 000000006 09 9 00438 90$: MOVAB EDTSST_PMT_HCCHG, TXT : 
53 000000006 00 9€ Socee 91$:  MOVAB EDTSST_PMT_INS, TXT : 
10 11 0044 BRB F 
53 000000006 00 9E 0044D 92$:  MOVAB EDTSST_PMT_INSN, TXT : 
07 11 00454 BRB 94$ : 
53 000000006 00 9€ 00456 93$:  MOVAB EDTSST_PMT QUERY, TXT : 
55 83 9A 0045D 94$:  MOVZBL (TXT)47 L : 1355 
69 D4 0046 CLRL  EDT$$G_FMT_LNPOS : 1359 
54 83 9A 00462 958 MOVZBL (TXT)+> CH > 1360 
55 (7 0046 DECL LEN + 1361 
3a 19 00467 BLSS 9$ : 1363 
52 69 DO 00469 MOVL § EDTS$G_FMT_LNPOS, R2 : 1366 
52 DD 0046C PUSHL  R2 ; 
54 DD bag PUSHL CH g 
000000006 00 03 FB 04 CALLS #2, EDTSSFMT_CHWID ; 
50 52 CO 0047 ADDL Re, RO : 
000000006 00 50 D1 O047A CMPL RO, EDT$$G_TI_WID ; 
03 19 00481 BLSS 96$ ; 
6A 0 FB 04 3 CALLS #0, EDTSSFMT_CRLF ; 1368 
4 DD 00486 968 PUSHL (CH : 1370 
68 1 FB 4 CALLS #1, EDTSSFMT_CH : 
DS 11 004 BRB 95$ ; 1371 
50 10 Ag 06 48D 97$ MOVL 16¢R2), RO : 1386 
54 000000006004 p 491 MOVL EDTS$A_US_TXT-4CROJ, TXT : 
55 84 9A 499 MOVZBL (TXT)+7 LEN : 1387 
9 ps 49C CLRL  ‘ EDT$$G_FMT_LNPOS > 1391 
53 4 OA rH 98$ MOVZBL (TXT)+7 CH : 1 % 
3 D7 004A CL : N : 139 
g 18 4A3 99$: BGEQ 0$ : 1395 
01 : 1 004A RW 121$ ; 
52 6 DO 00448 1008: MOVL § EDT$SG_FMT_LNPOS, R2 > 1398 
2 DD 004AB USHL R2 : 
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- SHOW Line-mode command 


SHOW = SHOW Line-mode command 
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SHOW = SHOW Line-mode command 
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1511 bytes, Routine Base: _EDTSCODE + 023E 


; Routine Size: 


!<BLF /PAGE> 


ug 


4 
9 
931 


Name 
_EDTSCODE 


File 


$DUAD8: 


BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE) /NOTRACEBACK/LIS=L1S$:LSHOW/OBJ=OBJ$:LSHOW MSRC$:LSHOW.BLI/UPDATE=(ENHS$:LSHOW) 


me: 
iiesgad Time: 
Lines/CPU Min: 


Lexemes/CPU-Min: 5325 


Memory Used: 


Cometletion Complet 


pete eacw - SHOW Line-mode command 1$- 13-1986 4 00:59:07 VAX-11 Bliss-32 V4.0-7 Page 29. 
EDTSSSHW_CMD = SHOW Line-mode command 14-Sep-1984 12:23:40 DISKSVMSMASTER:CEDT. SRC LSHOW.BLI;1 (4) | 
1367} 1 END ! of module EDTSLSHOW 
1369 0 ELUDOM | 
PSECT SUMMARY 
Bytes Attributes 


2085 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 


| 
| 
Library Statistics | 


eeeecece Symbols -------- Pages Processing 
Total Loaded Percent Mapped ime 
EDT. SRCJEDT.L32;1 377 80 21 40 00:00.2 
EDT. SRCIPSECTS.L32;1 2 1 7 00:00.1 
: (EDT. SRCJSUPPORTS. 213951 2 : 100 5 00:00.1 
: (EDT. SRC JKEYPADDEF .L32;1 34 7 00:00.2 
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